perm filename SAITRG[SYS,BGB] blob
sn#045005 filedate 1973-05-24 generic text, type T, neo UTF8
00100 REQUIRE "SAITRG[SYS,BGB]" LOAD_MODULE;
00200 EXTERNAL REAL PROCEDURE SIN (REAL X);
00300 EXTERNAL REAL PROCEDURE COS (REAL X);
00400 EXTERNAL REAL PROCEDURE SIND (REAL I);
00500 EXTERNAL REAL PROCEDURE COSD (REAL I);
00600 EXTERNAL REAL PROCEDURE ASIN (REAL X);
00700 EXTERNAL REAL PROCEDURE ACOS (REAL X);
00800 EXTERNAL REAL PROCEDURE SQRT (REAL X);
00900 EXTERNAL REAL PROCEDURE ATAN (REAL X);
01000 EXTERNAL REAL PROCEDURE ATAN2 (REAL Y,X);
01010 EXTERNAL REAL PROCEDURE LOG (REAL X);